function [s,p]=circle_area_and_perimeter(r)
s = r^2 * pi;
p = 2*r*pi;